﻿Imports Microsoft.Office.Tools.Ribbon

Public Class RibbonPrez

    Private Sub RibbonPrez_Load(ByVal sender As System.Object, ByVal e As RibbonUIEventArgs) Handles MyBase.Load
        'Rien de particulier
    End Sub

    Private Sub ButtonNouvelle_Click(sender As System.Object, e As Microsoft.Office.Tools.Ribbon.RibbonControlEventArgs) Handles ButtonNouvelle.Click
        Call VisioPrez.NouvelleDiapo()
    End Sub

    Private Sub ButtonSupprimer_Click(sender As System.Object, e As Microsoft.Office.Tools.Ribbon.RibbonControlEventArgs) Handles ButtonSupprimer.Click
        Call VisioPrez.SupprimerDiapo()
    End Sub

    Private Sub ButtonDebut_Click(sender As System.Object, e As Microsoft.Office.Tools.Ribbon.RibbonControlEventArgs) Handles ButtonDebut.Click
        Call VisioPrez.AllerDebut()
    End Sub

    Private Sub ButtonPrec_Click(sender As System.Object, e As Microsoft.Office.Tools.Ribbon.RibbonControlEventArgs) Handles ButtonPrec.Click
        Call VisioPrez.AllerDiapoPrecedente()
    End Sub

    Private Sub ButtonSuiv_Click(sender As System.Object, e As Microsoft.Office.Tools.Ribbon.RibbonControlEventArgs) Handles ButtonSuiv.Click
        Call VisioPrez.AllerDiapoSuivante()
    End Sub

    Private Sub ButtonFin_Click(sender As System.Object, e As Microsoft.Office.Tools.Ribbon.RibbonControlEventArgs) Handles ButtonFin.Click
        Call VisioPrez.AllerFin()
    End Sub

    Private Sub Button1_Click(sender As System.Object, e As Microsoft.Office.Tools.Ribbon.RibbonControlEventArgs) Handles ButtonExport.Click
        Call VisioPrez.ExporterPowerPoint(Globals.Ribbons.RibbonPrez.DropDownModele.SelectedItem.Tag, Microsoft.Office.Interop.PowerPoint.PpPasteDataType.ppPasteMetafilePicture)
    End Sub

    Private Sub GroupNavig_DialogLauncherClick(sender As Object, e As Microsoft.Office.Tools.Ribbon.RibbonControlEventArgs) Handles GroupNavig.DialogLauncherClick
        Call VisioPrez.EditPrez()
    End Sub

    Private Sub Button1_Click_1(sender As System.Object, e As Microsoft.Office.Tools.Ribbon.RibbonControlEventArgs) Handles Button1.Click
        Call VisioPrez.ExporterPowerPoint(Globals.Ribbons.RibbonPrez.DropDownModele.SelectedItem.Tag, Microsoft.Office.Interop.PowerPoint.PpPasteDataType.ppPasteOLEObject)
    End Sub

    Private Sub Button2_Click(sender As System.Object, e As Microsoft.Office.Tools.Ribbon.RibbonControlEventArgs) Handles Button2.Click
        Call VisioPrez.ExporterPowerPoint_Captures(Globals.Ribbons.RibbonPrez.DropDownModele.SelectedItem.Tag)
    End Sub
End Class
